RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


*eFILE**1D**RTERM 


RRRRRRRR TTITTTTTTTT EEEEEEEEEE RRRRRRRR MM MM ; 
RRRRRRRR TTTTTTTTTT EEEEEEEEEE RRRRRRRR MM ; 
RR RR TT EE RR RR MMMM MMMM ; 
RR RR TT EE RR RR MMM ; 
RR RR TT EE RR RR MM MM MM ; 
RR RR TT EE RR RR MM MM MM ; 
RRRRRRRR TT pEEEEE RRRRRRRR MM ; 
RRRRRRRR TT EEEEEEE RRRRRRRR MM MM . 
RR RR TT EE RR RR MM MM : 
RR RR TT EE RR RR MM MM ; 
RR TT EE RR RR MM MM cece : 
RR RR TT EE RR RR MM MM coe ; 
RR RR TT EEEEEEEEEE RR RR MM MM eeee ; 
RR RR TT EEEEEEEEEE RR RR MM MM eos . 
LL IIIIII SSSSSSSS : 
LL W111! SSSSSSSS ; 
LL I] SS : 
LL I] SS ; 
LL I] SS : 
LL I] SS : 
LL I] SSSSSS ; 
LL I] SSSSSS ; 
LL I] SS : 
LL I] SS ; 
LL I] SS : 
LL I] SS ; 
LLELLLLLLLL III] SSSSSSSS : 
CLLLLLLLLLL 1111 SSSSSSSS : 
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12-808-1382 ar tae DISKSVMSMASTER:CRUNOFF . SRCIRTERM.BLI: 1° (1) 
ZTITLE "RUNOFF termination eng gyoeme" 
MODULE rterm ( DENT = rs 00' 
P BLISS32 CL, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE 
NONEXTERNAL = LONG-RELATIVES J 


d= =} 


BEGIN 


i geeeeeeeeeeeeeeeeeeeeeeeeeeeerereteeeeeerereeeeeeeeeeeeeeeeeeeeneeeeeeeeeeer 
'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


® 
® 
® 
® 
® 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
i® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®« 
i INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
® 

i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

i CORPORATION. . 
® 

® 

® 

® 

® 

® 


tt DIGITAL ASSUMES NO RESPONS 
'® SOFTWARE ON EQUIPMENT WHIC 
it 
PITIIITITITITITITI LILI LI LITT LI LIL LLLLTILT LTT TTTTiTiLiLitiiiTi titi TTT iiTiiil 
i 


pepeiojolelelololololololololololololololololq) 


MMMM 2 2 2 3 3 SS SS OOOO 
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BILITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
H IS NOT SUPPLIED BY DIGITAL. 


lee 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

| ABSTRACT: Routine for normal termination of a document. 
} 
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Revision History 


000 
: tg 1 1 &ZSBTTL ‘Revision History’ 
; tz § } } MODIFIED BY: 
. a 44 1 i 032. ——-«KFA00032 Ken Alden 21-0¢t-1983 | 
3 re > Be RNFIPF would still get output if the last page of the file 
; 6 be9 1! was the one selected by the /PAGES qualifier. This has 
3 re ? : been corrected. 
ae .. nk: 1! 031 KFA00031 Ken Alden 96-0c t-1983 
; a bey 1! Added a warning message for users who said /PAGES but 
3 ¢ 1 : issued a page string that never matched any pages in the doc. 
3 $4 $38 1! 030 REMO0030 Ray Marshall 10-Aug-1983 
3 5 0054 1! KWTRPN and OUTCREF were declared (but not used) when DSRPLUS 
; 2 Bnee ! was false. This caused LINKer errors when building RUNOFF. 
3 Hf 089 4 029 REM00029 Ray Marshall 22-Jul-1983 
; 058 1! Defined TTYRES and DISPSI as NOVALUE to match the way they 
; & 059 1! are coded 
: (61 060 1: Added BLISS36 ONLY logic at the end of routine RTERM to release 
; $¢ 0061 1! the a memory used for the cross-ref data structures 
; © Bpeg 1! back to the system. Then, we can clear the Listhead (pointer) 
; 66 065 1! so that when the .BRN is read on another run, it doesn't 
o> or 0064 1! have the old names lying around. This was needed because 
; 68 Boee 1! in this environment, the inage does not have to be reloaded 
; 6 066 1! for successive runs through DSR. This is only a DSRPLUS 
; 668 0067 1! addition. 
3; & 0068 1! 
; 0069 1! 028 KFA00028 Ken Alden 19-Jul-1983 
3 a! Bano : } Fixed the /pages bug with gca_page_cnt. 
. £ 0072 1! 027 KFA00027 Ken Alden 14-Jul-1983 
: 74 0075 1! Suppresed CRU if /auto. 
; 75 0074 1! Removed CR3. 
; 0075 1! 
> oF 0076 1! 026 KFA00026 Ken Alden 13-Jul-1983 
: re Bp 6 ' Altered the output of cref info messages slightly. 
; 80 0079 1! 025 KAD00025 Keith Dawson 10-Jun-1983 
; 8 0080 1! Cref-changed condition slould not increment /AUTO count in 
3 $ art : first pass (already been incremented). 
; 6088 1! 024 REROO024 Ron Randall 1-Jun-1983 
3 86 Boge | : Added code that checks for need to output deferred figures. 
3 0086 1! 023 KAD00023 Keith Dawson 27-May-1983 
; 4 4 $4 1 Make sure Cref-changed condition increments /AUTO count. 
: 90 0089 1! 022 KAD00022 Keith Dawson 3-May-1983 
3 4 sia ' Suppress ‘Cref-changed' messages on early /AUTO passes. 
; «69 092 1! 021 KAD00021 Keith Dawson 11-Apr-1983 
: 96 093 1! Add new termination messages CANE CS PC3, PC4, PCS) for 
s 95 094 1! information written to the .BRN file (and for DSRPLUS 
3 38 944 ' cross-referencing, also read from the input .BRN file). 
: 98 097 1 | 


020 —_—-RERODOZO Ron Randall 17-Mar-1983 
| 


ve 


RM 
-000 
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Module Level Declarations 


dd 
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cc 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


RSBTTL "Module Level Declarations' 


i INCLUDE FILES: 


LIBRARY "NXPORT:XPORT'; ' XPORT Library 

REQUIRE "REQ:RNODEF'; i RUNOFF variant definitions 
ZIF DSRPLUS XTHEN 

LIBRARY "REQ:DPLLIB'; ! DSRPLUS BLISS Library 
LIBRARY "REQ:DSRLIB'; ' DSR BLISS Library 

! 

i MACROS 

MACRO 


) Close a file on a given I10B, if it was open. 


close 'f.open (which _iob) = 
iF en’ ich_iob CIOB$V_OPEN) 


: status = $XPO_CLOSE (10B = which_iob) 


MACRO 


i This macro makes certain that when blank Lines 
are skipped, change bars don't get output. 


no_bar_skip (n) = 
BEGIN 
LOCAL 

hold_bars; 


hold bars = .tsf_bars; 
tsf_Bars = false; 


ni; 
tsf_bars = .hold_bars; 
END %; 


EXTERNAL REFERENCES: 


EXTERNAL 
fnct : fnct_definition, 
fra : FIXEB_STRING, 
ca : gca_definition, 
ct : hct_definition, 

ZIF DSRPLUS ZTHEN 

ef kwtrpn, ! KeyWord Table for .Reference_Point Names 
phan : phan_definition, 
tsf : tsf_definition, 
brnoob : $xP0_10B (), 
tteiop : $XPO_10B (), 
ttiiob : $XPO_10B8 (), 


Pa 
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5-000 Module Level thy pny Be. ‘ et 4: $b: ig DISKSVMSMASTER: CRUNOFF .SRCJRTERM.BLI:1° (3) 
> «(164 92 «1 ttoiob : $XPO_I0B (), 
3 19? 37 ! tsiiob : SXPO_IOB (); 
; 183 uU 0295 1 ZIF PSAPLUS THEN 
3 198 U 0296 1 EXTERNA 
: 8 U 0297 1 a : tn definition 
: 170 U 0298 1 tniiob : REF $xPO_10B (), 
; 171 u 39 tnuiob : REF $XPO"J0B (); 
3 138 U a 1 ere. oe 
3 (174 U 1 
3; «175 U j sated 
; 178 U 1 mnfcrc, 
: 17 U > % rnfcro, 
: #178 U 4 1 rnfcru, 
: 179 U 0307 1 rnfcri, 
; 180 u 0308 1 rnfcre, 
; «(181 u 0309 1 rnfetd; 
3 ise u 0310 1 
3 + U 0311 1 EXTERNAL ROUTINE 
> «(184 u0 \¢ 1 tnfil, 
: U erms, 
| es a 
: note; 
Pi OH dan” 
; «189 0317 1 EXTERNAL LITERAL 
; 190 0318 1 rnfefd, 
3: «191 0319 1 rnferd, 
3 136 0320 1 rnfile, 
; 19 0321 1 rntipf, 
: 194 0 ; 1 rnfned, 
: 195 03 1 rnfpct, 
> 196 0324 1 rnfoce, 
: 197 0325 1 rnfpc3; 
; «6198 0 $$ 1 
3; 199 0 1 EXTERNAL ROUTINE 
; $e 8 8 1 botpag, clh cpageb, 
; 201 9 1 erm erml, fn, foobot, fooout, 
; 0¢ U 0 QO 1 XIF DSRPLUS XTHEN 
3; 2 U 1 o outcref, 
: 204 0 § 1 
; 205 03 1 outnj, putmsg, remneg, remmrg, 
: 54 03 : } toppag, tpr. tsttfe, uform, uskipl; 
: 208 U 6 1 XIF (1BL 18S (BLISS36) AND DSRPLUS) %THEN 
; 09 U ; 1 EXTERNA ROUT INE 
: 210 U 8 1 yo NOVALUE, ftyres., : ratty ge fs 
3 12 U 0340 ! , freref : NOVALUE; ree's C-REF data structure buffers. 
: 21 41 1 
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RTERM = RUNOFF termination 1 ~300n 138% OL: gh: 18 DISKSVMSMASTER: CRUNOFF .SRCIRTERM.BLI:1 > a8 
28 1 ZSSBTTL ‘RTERM = RUNOFF termination’ 
rb } GLOBAL ROUTINE rterm : NOVALUE = 
45 1 !44 
rf ! FUNCTIONAL DESCRIPTION: 
43 ! RUNOFF termination. 
20 | FORMAL PARAMETERS: = None 
50 ; IMPLICIT INPUTS: None 
S4 i IMPLICIT OUTPUTS: None 
56 1 ' ROUTINE VALUE: 
8 2 ' COMPLETION CODES: None 
0 59 1°! SIDE EFFECTS: None 
60 1 !-- 
0361 1 
Bees BEGIN 
O34 nom SP 
0 an_top_page, 
O36? statues; —" 
0 06 
036 tsttfe (0); ! Check for too few ends. 
tre: remneg (); ' Check for unreported bad backdents. 
8398 remarg (); ! Check for unreported bad margin settings. 
0371 IF .fnct_collectin ! Missing .END FOOTNOTE. 
0572 THEN . ° 
037 BEGIN 
0374 erml (rnfefd); ! Report the error. 
0375 n (Ch _end_footnote); ! Terminate footnote activity. 
0 16 END; 
037 
8 4 ZI1F DSRPLUS XZ THEN 
80 Missing .END TOPNOTE. 
§ if etn_collecting 
THEN 
BEGIN 
5 erml (rnfetd); ' Report the error. : 
tpnote (h_end_topnote); ! Terminate topnote activity. 
' 
89 i If topnote file happens to be open, close it. 
91 IF_.tnuiob CIOBS$V_OPEN] 
3 THEN 
ay 
n e = 0; 
95 tntil ttn_close); 
38 END; 
98 IF .tniiob CIOBSV_OPEN] 
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RTERM = RUNOFF termination 1 =3007 1382 93:6: 88 DISKSVMSMASTER:CRUNOFF .SRCIRTERM.BLI: 1 (4) 
399 THEN 
401 tn type © 1 
4 ; tatit ctn_close): 
40 END; 
one 
ri 5 END; 
bc09 , 
at } Delete both topnote files. 
41 tn_type = 0; 
“1h tnt it’ ttn_delete) : 
Beis tn type = 1; 
Beh? efi tnfil (tn_delete); 
0415 
ba19 puta cal t h t ' R b if th id 
old_phan_top_page = .phan_top_page; ! Remember the user sa 
0418 se ‘ — ! .PAGE as the last thing in 
0419 ! his .RNO file. 
bese ZIF DSRPLUS X%THEN 
0421 ! If any cross-reference information has not been written 
be5§ 2 to the .BRN file yet, write it now. 
0424 : WHILE .tsf_cref_data NEQ 0 DO 
0425 § BEGIN 
0426 LOCAL current_block : REF VECTOR [0]; 
0427 2 current_block = .tsf_cref_data; 
0428 2 erms (rnfile, 
0429 § CHSPTR(current_block(5]), .current_block([4]); 
0430 outcref () 
$33 $ FI ; 
ee 
0455 é | Force out waiting footnotes, if any. 
0437 if .fnct_count NEQ 0 
0438 THEN ! There are footnotes to be output. 
ote4 A a «phan_paging OR (.phan_llines GEQ (2 * .phan_slines)) 
0441 ! 
044 ! If not paging, just put out footnotes immediately. 
Retz } Ditto, if the page is rather long. 
0445 BEGIN 
oa47 | 
as Special case: We're at the very top of the first page. 
450 if .phan_top_first 
451 a" 
136 toppag (); 
454 fooout (.fnct_count) ' Dump them all at once. 
0455 END 
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FF termination and cleanup 


toppag (); 
' 
Loop over all remaining footnotes 


WHILE 1 DO 
BEGIN 
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ELSE | 
i There's a whole pile of footnotes left over, and they 
! have to be output at the bottom of the page. This may involve 
spreading them out across several pages. 
BEGIN 
' 
Special case: We're at the very top of the first page. 
if .phan_top_first 
THEN 4 ite 


First get rid of as many footnotes as possible. 


foobot (); 
1 


i Now see if there's any more to be output. If not, we're at 
the real end of the document (almost). 


iF -fnct_count GTR 0 
THEN | 


i Because not all footnotes were output, we have to 
' start a new page, so that successive iterations 
through this loop force out additional ones. 


BEGIN 

botpag 433 
oppa Py 

espe 


ELSE | 


i ALL footnotes have been output. 


} page is handled in a specia 
EXITLOOP 
END 
END; 


: Force out FIGURE DEFERRED space, if any. 


IF 
T 


-phan_figure NEQ 0 
BEGIN 


Way. 


' First, finish the bottom of the page 
! And now start the next page. 


Termination of this 


V4.0-742 Page 8 
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v04-000 RTERM = RUNOFF termination = 1o=g08-1 38% 9h: 6588 DISKSVMSMASTER: CRUNOFF .SRCIRTERM.BLI: 1° (4) 
> 386 513 
; Ser el ! 
: 4 1? } Special case: We're at the very top of the first page. 
: 390 218 iF -phan_top_first 
; 4 $218 THEN | 
; a7 be 9 Automatically dumps out the space after starting a page. 
: 0858 ersetorree 
: 397 0524 
3 a8 Be 5 : Dump out the space. 
: 400 03 ? ; no_bar_skip (.phan_figure); 
: 40 0529 END; 
; 40 0530 
3; 404 p23) ' 
; 405 05 § ! If the page number is to be centered at the bottom of the 
; rts 8287 ; : page then position there and output it. 
; 408 0535 IF .het_layoutn NEQ 0 
: 410 ba39 2 cpageb (); 
> 411 0538 2 
3 216 0539 2 ! 
3; (41 0540 2 : If /PAUSE or /SIMULATE force next page before 
3 ai3 bees § generating summary information. 
: 218 0348 2 iF rPhan_pause OR .phan_simulate 
: 418 0545 ; BEGIN 
3; 419 0546 3 
; 420 0547 3 ! 
3; 421 0548 3 ! Always force blank Lines at end of document when in /SIMULATE mode. 
3; 422 0549 : if skipping output, phan bottom has already been set by the Last P 
3 rit 0550 ! page actua Ly output. If this is the ‘‘normal case’, i.e., user didn't 
3 424 0551 ! specify /PAGES, then this is the time to update phan_bottom, since 
3 $82 8226 NEWPAG won't get called to do it. 
; rH 0884 i Not -gca_skip_out 
; ? 4 $238 phan_bottom = .phan_lines_tp; ! UFORM expects phan_bottom set. 
> 431 0558 
; $38 B25 Force on generation of output so blank Lines get output 
: 434 0561 gca_skip_out = false; 
. on ug 
; £39 564 ELSE 
: 039 388 | 
; 440 $69 i Not /SIMULATE or /PAUSE 
3 462 0569 If .hold_phan_top_page AND (NOT .gca_cmd_quick) 
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RTERM = RUNOFF termination ‘ 12288-1382 9330588 DISKSVMSMASTER:CRUNOFF. SRCIRTERM.BLI: 1° (4) vou 
570 ' H 
0371 3 If user said /NOOUTPUT, don't call CLH. : 
$898 THEN ; 
0574 ' H 
0575 : User said .PAGE after all text was finished, intending : 
0576 ! to generate a form-feed 3 
0577 ' : 
0578 BEGIN $ 
0579 fs_init (fra); : 
0580 fs_wehar (fra, %0'14'); ! Insert a form feed : 
p28) clR (clh_out_nocrl f) : 
05 ¢ END; $ 
bee : 
0584 ZIF DSRPLUS XTHEN 3 
p28? 2 I y 9caacref.changed ! Did one change on Last run? : 
0587 BEGIN 3 
TH 4 3 
Bee? RIF XBLISS (BLISS32) %THEN 3 
0591 2! This Logic increments the rerun count if necessary. It assures that the 3 
Beg 2! file will be rerun only if the user said /AUTO. On Pass 1, if no ag Bee 3 
0593 2 ! .BRN file existed, the rerun count has already been incremented (by DOOPTS), F 
bege § so we do not increment again. : 
0596 2 IF .gca_black_box 3 
0597 2 3 
0598 2 ( (.gca_pass_count NEQ 1) 3 
0599 2 : 
0600 2 -gca_old_brn_exists ) 3 
0601 2 THEN 3 
boos § gca_rerun_count = .gca_rerun_count + 1; : 
0604 2 IF .gca_pass_count EQL 4 3 
0605 2 THEN 3 
0606 2 BEGIN : 
0607 2 putmsg (rnfcro, 0, 0); ' Tell user cross-refs are oscillating, : 
0608 2 pany (rnfcri, 0, 0); t  ... and how he can find out where. : 
0609 2 ND : 
bere 2 ELSE : 
pels IF .gca_pass_count GTR .gca_rerun_count 3 
061 TH 3 
0614 BEGIN : 
pet? § xF I F 
616 putmsg (rnfcrc, 0, 0); ! Tell user forward cross-refs changed, ; 
0617 putmsg (rnfcri, 0, 0); |! ... and what he can do 3 
bei8 putmsg (rnfcr2, 0, 0); ! ... about it. : 
0620 ZIF ZBLISS (BLISS32) XTHEN : 
0621 END; : 
06 § xF I 3 
6 3 
? ¢ END; : 
0626 IF .gca_cref_errcnt GTR 0 : 
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RTERM = RUNOFF termination 1 =3eP 71382 0F:Obi88 DISKSVMSMASTER:CRUNOFF.SRCIRTERM.BLI:1>— (4) vO4 

$ 7 3 

3 BEG! 3 

6 putmsa (rnfcru, .gca_cref_errcnt, 0); ! Unresolved refs $ 
Oe ? foene -gca_black_box : 

6 utmsg (rnfcri, 0, 0); ! 6... and what he can do ; 
06 : END;» , ~ ; 
be : XFI ; : 
bo38 If the user specified /PAGES but no pages were output then tell him so. : 
0638 if .gca_cmd_pages ; 
0640 (.phan_lines_tp EQL 0) : 
0641 ¢ ANB 3 
pO%§ { pca-page_cnt EQL 0) 3 
bode $ <c utmsg (rnfipf, 0, 0); 
dees 5 cote eer ere : 
0646 2 IF .gca_fehler : 
0647 2 THEN ! If any errors were detected, : 
0648 2 putmsg (rnferd, .gca_errcnt, 0) ! report # of Lines of error messages. ; 
eh 2 ELSE ! If no errors detected and : 
0651 5 IF .termination_log F 
6636 2 THE ! /LUG was specified, 

0653 2 putmsg (rnfned, 0, 0); ! then just identity version and 

0654 2 ! report 0 diagnostics. 
0655 2 
0656 2 ! 
0657 2 ! The following IF supplies the age he's logic: If /NOOUT was specified, 
0658 2 ' this block isn't done. If not, and either /LOG was specified or errors 
seh 2 were encountered, then perform the block. 
0661 ; IF (.termination_log OR .gca_fehler) 
bees § THEN | ! If so, then report pages. 
0664 2 i This block determines whether or not there is currently a valid page 

0665 2 ! count. If not, it attempts to calculate one based on the number of 

bers 2 Lines output. 

0668 : i Then it writes the second Line of the termination message to the 

0669 : tog device. This Line reports the number of pages output and 

Ost idintifies the output filename. 

67 BEGIN 

se , 

675 i If this is a document broken up into pages, then count logical pages. 

Oe? Otherwise, (i.e. .NO PAGING) figure out # of spooled pages this is. 

678 iF NOT .gca_cmd_quick 

79 THEN 

680 4 BEGIN ; 

681 5 IF (NOT .phan_paging) 

oes 4 THEN 

6 4 ! 


RTERM 
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' Not a document orgentsed into be es. 
Assume output device spooler will break it up. 


4 Bliss-32 V4.0-742 Page 
I SMASi 1 


V 4 
D MASTER: CRUNOFF ..SRCIRTERM.BLI; 


gca_page_cnt = .gca_page_cnt + 
ELSE C.phen, Cines tp + .phan_slines - 1) / .phan_slines 


| Not .NO PAGING, so bump count only if last page is not empty. 
IF common inet GTR 0) 
— -gca_skip_out OR .gca_page_cnt GTR 0) 
gca_page_cnt = .gca_page_cnt + 1; 
| Report how many pages generated and to what file. 
putasg (rnfpct, .gca_page_cnt, 0); 


i Gopert on what information, if any was written to a .BRN file. 
! (This is reperted whether or not Quick processing was in effect.) 
! If doing ghee Be kes also report how many cross-referencing 


' 
' 
1 
i] 
hits were read from the old (input) .BRN file. 
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5 

5 ELECT true OF 

586 SET 

587 4 -gca_index_cnt GTR 0] : putmsg (rnfpc2, .gca_index_cnt, 0); 

388 3 -gca_contents_cnt GTR 0] : putmsg (rnfpc3, .gca_contents_cnt, 0); 

590 U ZIF DOSRPLUS XTHEN 

591 U -gca_new_cref_cnt GTR 0] : putmsg (rnfpc4, .gca_new_cref_cnt, 0); 

236 U “1 C.gca_old_cref_cnt GTR 0] : putmsg (rnfpc5, .gca_old_cref_cnt, 0); 

594 

595 TES; 

596 

305 END; 

272 ¥ XI1F (BLISS (BLISS36) AND DSRPLUS) %THEN | 

601 U i Call TTYRES to restore terminal to its original mode (don't pass 

60 U 9 ' escape sequences, and reset wrap ing width). This call is made only | 

60 U 0 ! if the user said /DEC=VT100, which caused these terminal characteristics 

604 U 1 ! to be modified. In this case, the geved terminal width in GCA_TWIDTH_36 | 

oR : § will be different than its initialized value of -1. 

ait : 3 dispsi (); ! Disable the PSI CTRL/C interrupt. | 

609 U § IF .gca_twidth_36 NEQ -1 | 

610 U THEN 

611 U 8 ttyres (); 

ol¢ ZF I | 

61 740 
| 
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v04-000 RTERM = RUNOFF termination “ 300-1382 9}: $y: ig Disk KSVMSMASTER: CRUNOFF . SRCIRTERM.BLI; pqse (4) vou 
: 618 Te) ' 3 
3 el os Close all files. : 
: 61 744 sheet: if_open (brnoob); ! Close intermediate binary file. : 
: 618 0745 Closevifropen (tteiob) : . : 
; 619 rs close_if_open (ttiiob); : 
; 620 74 close_if_open (ttoiob); ; 
: ? 1 oe close_if_open (tsiiob): : 
3 ° 5 . Peo F (ABLISS (BLISS36) AND DSRPLUS) XTHEN 3 
: 625 U Peg aT there any entries in the cross-ref structure, make sure we release ; 
: 626 U 07 i all of that dynamic meqery and clear out the Listhead's pointer. This 3 
> 627 U bee i is necessary because of the interactive way DSR/PLUS is used on TOPS- 20. : 
; 628 U 0755 i i.e. when RUNOFF is reentered, we don't want the previous run's text F 
; 629 U 0756 ! Lying around. : 
; 650 U 0757 in 3 
3; 631 U 0758 BEGIN : 
; ose U 0759 LOCAL 3 
; 63 U 0760 current_entr REF VECTOR(CO), : 
> 634 U 0761 2 desc : REF $ TR. DESCRIPTOR( CLASS=DYNAMIC ), ! string desc. 3 
$s 639 U 154 temp_pointer; 3 
; 636 U 076 3 
; 637 U 0764 current_entry = .kwtrpn; 3 
; 638 U 0765 5 3 
3; 639 U 0766 WHILE current_entry(0] NEQ 0 DO 3 
; 640 U 0767 § BEGIN 3 
3: 641 U 0768 freref (. res gentrytes )); ! Release old c-ref bfrs, 3 
3 ong U 0769 5 desc = .current_ent 3 
; 64 U 0770 $XPO_FREE vNEM (“ STRING = ( .desc Cstr$h_length]_ ! ref. name, : 
3 644 U 0771 2 .-desc Cstr$a_pointer] ) ); 3 
: 645 U Orre 2 $XPO_FREE_MEM ( BINARY _DATA’ =( 2! descriptor for nene, ; 
; 646 U 077 -current entry(i] ) ); 3 
3; 647 U 0774 spb pe inter = .current_entry(0 : 
3 648 U 0775 $xP REE_MEM ( BINARY “DATA. st $1 and keyword block ; 
> 649 U 0776 »current entry(0] ) ); 3 
; 650 U 0777 current_entry = .temp_pointer : 
3; 651 U 0778 ND; 3 
3 636 U 0779 pare = 0 ' initialize Listhead 3 
; 65 U 0780 F 
3; 654 0781 ZF I 3 
3; 655 o786 petunia 3 
3; 656 0783 1 END; ! End of RTERM. : 
-TITLE RTERM RUNOFF termination and cleanup 3 
-IDENT \v04-000\ : 
-EXTRN FNCT, FRA, GCA, HCT : 
eEXTRN PHAN, TSF $ 
-EXTRN TTEIOB, THIIOB, TTO108 : 
-EXTRN TSIIOB, RNFEFD, RNFERD 5 
eEXTRN RNFILE, RNFI°F, RNFNE 3 
-EXTRN RNFPCT, RNPrC2, RNFPC : 
ZEXTRN BOTPAG, CLH, CPAGEB : 
TEXTRN ERM, ERML, FN, FOOBOT : 
“EXTRN FooouT. BOTNI: PUTMSG : 
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DISKSVMSMASTER: CRUNOFF.SRCIRTERM.BLI; 
REMNEG, REMMRG, TOPPAG 
TPR, TSTTFE, UFORM 
USKIPL, XPOS$CLOSE 
XPOSF ALLURE 
SCODES ,NOWRT,2 
RTERM, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 


XPOSCLOSE, R10 
XPOSFAILURE , RI 


ERML 
#5? 


#1, F 

#0, OUTNJ 

PHAN, HOLD_PHAN_TOP_PAGE 
FNCT 


7$ 

@PHAN+40, 2$ 
#1, PHAN+36, RO 
@PHAN+4, RO 


4$ 
PHAN+24, 3$ 
#0, TOPPAG 


ae ©Q00UT 

PHAN+24, 6$ 
#0, TOPPAG 

#0, FOOBOT 

FNCT 

#0, BOTPAG 

PHAN+16, R2 
PHAN+24, 8$ 
#0, TOPPAG 

TSF, RO 

i. #1 124(RO) HOLD_BARS 
#i. 124(R0) 

#1, USKIPL 

TSF, RO 

HOLD BARS, #0, #1, 124(RO) 
HCT+3 


0343 


0535 
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S2 


7 13 000F7 BEQL 108 ; : 

000000006 Ff F SF CALLS A CPAGE + 0537 ; 
4 3 AS £8 00100 10$ BLBS PHANs6 , 11$ : 0543 ; 

AS €9 001 BLBC  PHAN+52. 13$ : : 

04 A ag ES 108 11$ BLBS  GCA+112. 12$ + 0554 ; 

2c AS 65 D0 001 MOVL § PHAN¢12. PHAN+56 + 0556 3 

AQ ab D4 00110 128:  CLRL GcAtt| + 0561 ; 

000000006 EF FB 11 CALLS #0, UFORM + 056 ; 
4 1 114A BRB 14$ > 054 ; 

21 4 €9 0011C 13$:  BLBC HOLD PHAN TOP _PAGE, 14$ + 0569 ; 

1E 66 E8 OO11F BLBS CA+208 : : 

08 A b4 1 é CLRL Pha + 0579 ; 

FC A7 C A7 1 MOVAB Are FRA 3 3 

67 FC OA? p 12A MOVL FRA, FRA+4 : ; 

00 87 O¢ 1 : MOVE #12, @FRA+4 + 0580 ; 

67 D6 001 INCL  FRA+4 : ; 

08 A7 D6 00134 INCL  FRA+12 : ; 

B DD 00137 PUSHL #11 + 0581 ; 

000000006 EF 1 FB 01 9 CALLS #1, CLH : ; 
14 01 Ab é E1 00140 14$: BBC #2. GCA+209, 15$ > 0638 ; 
65 05 00145 TSTL § PHAN+12 + 0640 ; 

10 if 00147 BNEG  «15$ : ; 

88 Ab DS 00149 TSTL GCA+88 + 0642 ; 

OB 12 0014¢ BNEQ 15$ : ; 

7E 7C OO14E CLRQs = + 0644 ; 

000000006 8F DD 00150 PUSHL #RNFIPF : ; 

68 03 FB 00156 CALLS #3, PUTMSG : ; 

OD FO Ad £9 00159 15$: _— BLBC GCAs192, 16$ > 064 : 

7E D4 0015D CLRL = = (SP) > 064 ; 

F4 AB DD 0015F PUSHL  GCA+196 : ; 

000000006 8F DD 00162 PUSHL #RNFERD : : 

0c 11 001 BRB 17$ : ; 

OF 66 01 gi 0016A 16$: BBC #1, GCA+208, 18$ > 0651 : 
7E 7C 00166 -(§P) > 0653 ; 

000000006 8F DD 001 PUSHL  #RNFNED ; ; 

68 03 FB 00176 1 CALLS #3, PUTMSG : ; 

04 66 01 £0 00179 § #1. GCA+208, 19$ : 0661 : 
5 FO Ab £9 0017D 18$ BLBC —-«GCA+1 g. 3 é : ; 

66 £8 00181 19$ BLBS  GCA+20 $ + 0678 : 

11 1¢ «6©BS CEB 01 BLBS aPHAN+40, 208 ; 1 ; 

50 65 18 a5 C1 001 ADDL3 PHAN+36, PHAN+12, RO : ; 
30 D7 0018D DECL RO : ; 

a8 ie ” 4 £6 $188 RODE Re ceases” : : 

‘0 * $133 BRB 86 > 0687 : 

6 D3 0199 20$: TSTL PHAN+12 + 0694 ; 

0c 15 00198 BLEG 22 ; : 

05 AO A6 £9 0019D BLBC  GCA+112, 21$ + 0696 ; 

88 «OA D2 1A1 TSTL GCA+BE ; ; 

88 Ab DG GOING 218: INCL «GC APBB : 069 

7E D4 O1A5 $3: CLRL = = (SP) ; at ; 

88 A6 DD OO1AB PUSHL  GCA+ ; ; 

000000006 +8F DD AE PUSHL #RNFPCT : ; 

8 3 FB 001B CALLS #3, PUTMSG ; ; 

0 90 Ab DO 00187 23$ MOVL gts LR > 0714 : 

0D 15 0018B BLEO 4$ : ; 
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v04-000 RTERM = RUNOFF termination > 18: -Sep- ets 9}: P if DISKSVMSMASTER: CRUNOFF. Se ACIRTERN. BLI; 7? ™ (aS vor 
ze D4 00180 CLRL = = (SP) ; : 
DD 001BF PUSHL : ; 
000000006 BF DD 31 PUSHL #RNFPC2 : ; 
3 FB OOIC CALLS A pUTHSG : : 
8C Ad DO OOICA 248:  MOVL gcAes 0 + 0715 : 
gp 15 O01¢ BLEG F ; 
§ bb O0Ip Bust «RON 
000000006 Hi DD 001D PUSHL #RNFPC3 : : 
$6 000000006 ; £9 ibd 25$ BLBES Sains et” 26$ 2 0744 
000000006 EF : 50 TE4 MOVE a. 10B$+44 : : 
E D4 1ED CLRL. = (SP) : : 
000000006 ai F OO1EF PUSHAB 198 BS : ; 
6A 3 FB O1F5 CALLS XPOSCLOS : ; 
14 000000006 EF 5 O1FB8 26$:  BLBC TTE10Bs $0 27$ + 0745 ; 
000000006 EF g 90 OO1rt ROVE, he. 10BS+44 ; : 
7E D4 00 88 CLRL + (se) : : 
000000006 ai 9F OO20A PUSHAB 1088 : ; 
6A 3 «FB 8 9 CALLS # XPOSCLOS : 3 
14 000000006 EF £9 0213 27$:  BLBC TTi10B+50, 28$ > 0746 ; 
000000006 EF 08 0 OO21A OVB re, 10B$+44 : 3 
DD 00221 PUSHL : ; 
7E 04 00223 CLRL (sp) : ; 
000000006 ai 9F 00225 PUSHAB : ; 
6A 3 FB 00228 CALLS p3° s post s $ $ 
14 000000006 EF €9 00 : 28$:  BLBC 110108436 : 0747 : 
000000006 _ EF 08 90 00 3 HOVE ri : : 
7E D4 80 3 CLRL. = (SP) : : 
000000006 EF 9F 00240 PUSHAB ops : ; 
6A 3 FB 00 2 CALLS XPOSCLO SE : ; 
000000006 EF notaencente 65 50 60 rt pt ots 131108430 3eha? : 0748 : 
t3 DD 00257 PUSHL r3, 108 : ; 
7E D4 00259 CLRL. = (SP) : : 
000000006 EF 9F 00258 PUSHAB 10B$ : : 
6A 03 FB 00261 CALLS #3, XPOSCLOSE : : 
04 00264 30$ RET : 0783 : 
; Routine Size: 613 bytes, Routine Base: SCODE$ + 0000 3 
: 657 0784 1 : 
: 658 0785 1 END ! End of module. 3 
> 659 0786 0 ELUDOM F 
; PSECT SUMMARY ; 


: Name Bytes Attributes 
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v04-000 RTERM = RUNOFF termination < 14- ety 7 9 :07:5 DISKSVMSMASTER: CRONE SRCIRTERM.BLI; * (4) 
SCODES 613 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


: cooceee= Symbols -----e-- Pages Processing 
: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBIXPORT.L32; | 9 81 1 252 0:00. 

: titty RUNOFF .SRCJD shi 1b. L32;1 1348 47 : 86 $3:90:3 
3 COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RTERM/OBJ=OBJ$:RTERM MSRC$:RTERM/UPDATE=(ENHS$:RTERM) 
3; Size: 613 code + 0 data bytes 

3; Run Time: -0 

; Elapsed Time: 00: 56. 5 

3; Lines/CPU Min: Hy 48 

; ponenee lS ees 28445 

; mory Used: 189 pages 

; Compilation Complete 
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